約 1,906,397 件
https://w.atwiki.jp/umigamejinnro/pages/43.html
CGI空気嫁!!! ~参加者一同~ 全盛期の鬼畜CGI伝説 3村中5身代わり役職は当たり前、3村中8身代わり役職も 役職希望なしでも咲夜さんに大量の狼役職を与えた おかげで、未だに咲夜さんは警戒される 最近のCGIのマイブームは藍狼らしい CGIにとっての身代わり狩人は身代わり占いの振り損ない 投票時間が半分残っているのに村人を突然死させる 身代わり共有を2連続、しかも同じ人に相方を振った事がある あろう事か、身代わり君を生存させた事がある 身代わり君に占い師、狼に権力者と決定者を振ったことも 5回目で投票が決まっても引き分け扱い その修正でバグる 役職希望無視なんてザラ、正反対の役職を振ることも グッとガッツポーズしただけで6回くらい連続でこいし人外 関係の深いアイコン・RPの二人を共有者にするというファンサービス あまりに身代わり君に占い師を振るので、最初から真占いはいないと決め打たれてた時期も 初日にパンダにされた村人が霊界へ行ってみると、すでに身代わり君が霊能者だった 初日にパンダにされた村人が霊界へ行ってみると、なんと身代わり君が真占いだった 初心者さんが居ると、嬉々として埋毒を与える ※この記事の内容には、一部誇張された表現が含まれています。 何か思う所の有る紳士淑女の皆様は、是非加筆修正して下さい。 編集の仕方がわからない/ログインめんどくさいひとはこちらに 闇鍋で人外増やしすぎて、開始とともに終了の事態。 -- ROM専 (2009-07-26 21 49 29) 名前 コメント
https://w.atwiki.jp/aurora72source2/pages/51.html
aaa #!/usr/local/bin/perl # 上の1行の前には空行も空白文字もはいらないようにしてください。 # perlのパス名はプロバイダや環境に合わせて変更してください。 #require "jcode.pl"; # # CGIのヘッダを書き出します。通常は text/html を指定します。 # print "Content-type text/html\n"; print "\n"; # # HTMLを書き出します。 # "~\n" の ~ の部分に HTML を記述しますが、ダブルクォーテーション( " ) # を用いる際は " の代わりに を用いるか、\" のように、バックスラッシュ( \ ) # を前に置いてください。 # print " HTML \n"; print " HEAD \n"; print " TITLE CGI TEST /TITLE \n"; print " /HEAD \n"; print " BODY BGCOLOR= #FFFFFF TEXT= #000000 \n"; # # wwwperl.cgi?引数1+引数2 で指定したコマンド引数を書き出します。 # # #print " hr \n"; # print "=================================\n"; print "コマンド引数\n"; print "=================================\n"; for ($i = 0; $i = $#ARGV; $i++) { print "ARGV[$i] = [ $ARGV[$i] ]\n"; } print "\n"; print " hr \n"; # # CGIスクリプトが参照可能な環境変数を書き出します。 # print "=================================\n"; print "環境変数\n"; print "=================================\n"; print "AUTH_TYPE = [ $ENV{ AUTH_TYPE } ]\n"; print "CONTENT_LENGTH = [ $ENV{ CONTENT_LENGTH } ]\n"; print "CONTENT_TYPE = [ $ENV{ CONTENT_TYPE } ]\n"; print "GATEWAY_INTERFACE = [ $ENV{ GATEWAY_INTERFACE } ]\n"; print "HTTP_ACCEPT = [ $ENV{ HTTP_ACCEPT } ]\n"; print "HTTP_FORWARDED = [ $ENV{ HTTP_FORWARDED } ]\n"; print "HTTP_REFERER = [ $ENV{ HTTP_REFERER } ]\n"; print "HTTP_USER_AGENT = [ $ENV{ HTTP_USER_AGENT } ]\n"; print "HTTP_X_FORWARDED_FOR = [ $ENV{ HTTP_X_FORWARDED_FOR } ]\n"; print "PATH_INFO = [ $ENV{ PATH_INFO } ]\n"; print "PATH_TRANSLATED = [ $ENV{ PATH_TRANSLATED } ]\n"; print "QUERY_STRING = [ $ENV{ QUERY_STRING } ]\n"; print "REMOTE_ADDR = [ $ENV{ REMOTE_ADDR } ]\n"; print "REMOTE_HOST = [ $ENV{ REMOTE_HOST } ]\n"; print "REMOTE_IDENT = [ $ENV{ REMOTE_IDENT } ]\n"; print "REMOTE_USER = [ $ENV{ REMOTE_USER } ]\n"; print "REQUEST_METHOD = [ $ENV{ REQUEST_METHOD } ]\n"; print "SCRIPT_NAME = [ $ENV{ SCRIPT_NAME } ]\n"; print "SERVER_NAME = [ $ENV{ SERVER_NAME } ]\n"; print "SERVER_PORT = [ $ENV{ SERVER_PORT } ]\n"; print "SERVER_PROTOCOL = [ $ENV{ SERVER_PROTOCOL } ]\n"; print "SERVER_SOFTWARE = [ $ENV{ SERVER_SOFTWARE } ]\n"; print "\n"; # 時間帯を日本時間に設定する #$ENV{ TZ } = "JST-9"; # プログラム強制中断の際の処理を記述する #$SIG{ INT } = $SIG{ HUP } = $SIG{ QUIT } = $SIG{ TERM } = "sigexit"; #sub sigexit { # # この部分に作業ファイル削除などの終了処理を記述する #} #require "jcode.pl"; #$xx = "漢字"; # jcode convert(*xx, "euc"); # # フォームに指定した値を読み込んで、書き出します。 # print "=================================\n"; print "フォーム変数\n"; print "=================================\n"; if ($ENV{ REQUEST_METHOD } eq "POST") { # POSTであれば標準入力から読込みます read(STDIN, $query_string, $ENV{ CONTENT_LENGTH }); } else { # GETであれば環境変数から読込みます $query_string = $ENV{ QUERY_STRING }; } # 「変数名1=値1 変数名2=値2」の形式をアンパサンド( )で分解します @a = split(/ /, $query_string); # それぞれの「変数名=値」について foreach $a (@a) { # イコール( = )で分解します ($name, $value) = split(/=/, $a); # + や %8A などをデコードします $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; # 変数名と値を書き出します print "$name = $value\n"; # 後で使用する場合は、$FORM{ 変数名 } に代入しておきます $FORM{$name} = $value; } # # # open(IN, "xxxx.txt"); while ( IN ) { print $_; } close(IN); # # # #open(IN, "/usr/local/bin/nkf -e datafile.txt |"); print "==================================================\n"; $cmdstr = "ls -la $FORM{ updir } |"; open(IN, "ls -la |"); j = 0; while ( IN ) { @linedat = split(/ /, $linedata); # print $_; j++; print "---------------------------------------------------\n"; print "j = $j\n"; foreach $i (@linedat) { print "i = $i\n"; } print "---------------------------------------------------\n"; print END_OF_DATA01; tr bgcolor=#ffffcc td colspan=5 ■ input type=checkbox name=chkno value= | input type=radio name=delno value= END_OF_DATA01 # 31 print "j"; # printf("Name=%s, Age=%d\n", $name, $age); print END_OF_DATA02; | a href=http // END_OF_DATA02 #www.ie.u-ryukyu.ac.jp/~j05017/ie/profile/rep8.html print "$FORM{ adrs }"; print "$linedat(8)"; print END_OF_DATA03; b END_OF_DATA03 # さめがめプログラミングレポート print END_OF_DATA04; /b /a | input type=text size=30 name=re_name value= | input type=text size=4 name=kengen value=777 END_OF_DATA04 # 755 print END_OF_DATA04; | END_OF_DATA04 # 2008.01.01 01 01 01 print "$linedat(8)"; print END_OF_DATA05; | /td /tr END_OF_DATA05 } close(IN); print "==================================================\n"; #open(IN01, "_form.f"); #open(IN01, "_form.clf"); #open(IN01, "_form.f"); #while ( IN01 ) { # print $_; #} #close(IN01); # # HTMLの終わりの部分を書き出します。 # print " /BODY \n"; print " /HTML \n"; print "\n"; aaa
https://w.atwiki.jp/jituyou/pages/21.html
メール メール[i]i-nPOP [ez]nPOP [i]COOLMAIL [i]Yahooメールアプリ [i]i-nPOP [ez]nPOP [i]COOLMAIL [i]Yahooメールアプリ
https://w.atwiki.jp/dtisettings/pages/15.html
CGIの設定は~~~
https://w.atwiki.jp/raenola/pages/13.html
aaa
https://w.atwiki.jp/wiki13_sirokuma/pages/37.html
http //penguin.nakayosi.jp/windows/perl.html
https://w.atwiki.jp/also_little/pages/353.html
遊戯王CGIとは、遊戯王のカードゲームをオンラインで楽しむことが出来るゲーム。 予め用意されているカードを自分で選んでデッキを組むことが可能。 新人にもかなりの人気がある。
https://w.atwiki.jp/soromon_com/pages/38.html
特に説明することもないところ # Sub City Admin # sub cadmin_dis { form_table( up , 100% ,1); reload; print ADUP; 町管理 /td /tr tr td align=left 資金を引き出す: br div align=right input type=text name=cmoney class=text size=10 G br 町資金:$cmoney G br input type=hidden name=id value= $F{ id } input type=hidden name=ps value= $F{ ps } input type=hidden name=mode value= cadmin_money input type=submit value= $sub_lbl class=button /div br /form form method=$method action=$seacgi input type=hidden name=reload value= $action 町を修復: br div align=right input type=text name=repair class=text size=10 pt br ($r_fee Gで1pt回復) br 現在HP:$chp(MAX:$poten) br input type=hidden name=id value= $F{ id } input type=hidden name=ps value= $F{ ps } input type=hidden name=mode value= cadmin_repair input type=submit value= $sub_lbl class=button /div /form br form method=$method action=$seacgi 積荷搬入: br ADUP reload; my @city_goods = split(/△/,$load); foreach (0 .. $#city_goods) { ($goods) = split(/,/,$city_goods[$_]); $checked = $_ == 0 ? checked ; print qq| input type=radio name=cgoods value= $_ $checked |; print qq|$goods br \n|; } id_ps; print ADMD; div align=right 搬入量: input type=text name=quan class=text size=10 br 価格設定: input type=text name=gprice class=text size=10 br input type=hidden name=mode value= cadmin_intrade input type=submit value= $sub_lbl class=button /div /form br form method=$method action=$seacgi 船搬入: br ADMD reload; foreach (0 .. $#ship_ind) { $checked = $_ == 0 ? checked ; print qq| input type=radio name=cship value= $_ $checked |; print qq|$ship[$_][4] br \n|; print qq|[積載:$ship[$_][1] 耐久:$ship[$_][2] 速度:$ship[$_][3]] br |; } id_ps; print ADDN; div align=right 価格設定: input type=text name=sprice class=text size=10 br input type=hidden name=mode value= cadmin_inyard input type=submit value= $sub_lbl class=button /div /form br form method=$method action=$seacgi 財宝搬入: br ADDN reload; my @item_ind = split(/,/,$item_line); foreach (0 .. $#item_ind) { $checked = $_ == 0 ? checked ; print qq| input type=radio name=citem value= $_ $checked |; print qq|$item_ind[$_] br \n|; } id_ps; print ADBM; div align=right 価格設定: input type=text name=iprice class=text size=10 br input type=hidden name=mode value= cadmin_initem input type=submit value= $sub_lbl class=button /div /form br form method=$method action=$seacgi 町売却: br ADBM reload; print qq| input type=checkbox name=csell value= 1 |; print qq|町を売却する br \n|; id_ps; print ADSL; div align=right 価格設定: input type=text name=cprice class=text size=10 br (買取人指定 lt;IDで指定 gt;: input type=text name=buyer class=text size=10 ) br input type=hidden name=mode value= cadmin_csell input type=submit value= $sub_lbl class=button /div ADSL form_table( down ); } # Sub Cadmin Money # sub cadmin_money { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } require csys.cgi ; get_city; if ( $id != $owner ) { error( 不正です ) } if ($F{ cmoney } =~ /[^0-9]/) { play( 数の入力が不正です );exit } my $outmoney = int($F{ cmoney }); $outmoney = 0 if $outmoney 0; # if ( ($money + $outmoney) 0 ) { play( 資金が足りません ); exit }↑製作者の消し忘れだろうか? $outmoney = $cmoney if $outmoney $cmoney; $money += $outmoney; $cmoney -= $outmoney; $F{ cmode } = 4; msg( $cnameから$outmoney G引き出しました ); add_record( $cnameから $outmoney G 出金 ); set_city; play; } # Sub Cadmin Repair # sub cadmin_repair { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } require csys.cgi ; get_city; if ($id != $owner) { error( 不正です ) } if ($F{ repair } =~ /[^0-9]/) { play( 数の入力が不正です );exit } my $hpup = int($F{ repair }); $hpup = (-1) * $hpup if $hpup 0; if ( $hpup * $r_fee $money ) { play( 資金が足りません ); exit } if ( $hpup + $chp $poten ) { $money -= ($poten - $chp) * $r_fee; $chp = $poten; } else { $money -= $hpup * $r_fee; $chp += $hpup; } msg( 町を修復しました ); set_city; $F{ cmode } = 4; play; } # Sub Cadmin In Trade # sub cadmin_intrade { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } require csys.cgi ; get_city; if ($id != $owner) { error( 不正です ) } if ($F{ quan } =~ /[^0-9]/) { play( 数の入力が不正です );exit } if ($F{ gprice } =~ /[^0-9]/) { play( 数の入力が不正です );exit } $F{ gprice } = int($F{ gprice }); if ($F{ gprice } 0 ) { play( マイナスの価格は付けられません ); exit } my @cload_ind = split(/△/,$cload); if (@cload_ind $cl_limit) { play( これ以上積荷を搬入できません ); exit } my @city_goods = split(/△/,$load); ($goods,$load_quan) = split(/,/,$city_goods[$F{ cgoods }]); if (!$goods) { play; exit } $added = $load_quan - $F{ quan }; if ($added 0) { splice(@city_goods , $F{ cgoods } , 1 , $goods,$added ); } elsif ($added = 0) { splice(@city_goods , $F{ cgoods } , 1 ); $F{ quan } = $load_quan; } $load = join( △ ,@city_goods); $cload = join( △ ,@cload_ind, $goods,$F{ quan },$F{ gprice } ); msg( $goodsを$F{ quan }個 搬入しました ); add_record( $cnameに $goodsを @$F{ gprice }で $F{ quan }個 搬入 ); set_city; $F{ cmode } = 4; play; } # Sub Cadmin In Yard # sub cadmin_inyard { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } require csys.cgi ; get_city; if ($id != $owner) { error( 不正です ) } if ($F{ sprice } =~ /[^0-9]/) { play( 数の入力が不正です );exit } $F{ sprice } = int($F{ sprice }); if ($F{ sprice } 0) { play( マイナスの価格は付けられません ); exit } my @cship_ind = split(/△/,$cship); if (@cship_ind $cs_limit) { play( これ以上船を搬入できません ); exit } ship_data; fleet; load_data; if (!$ship[$F{ cship }][4]) { play; exit } if ( ($total - $total_load - $food - $sailor - $ship[$F{ cship }][1]) 0 ) { play( 残積荷が足りません ); return; } $cship = join( △ ,@cship_ind, $ship_ind[$F{ cship }],$F{ sprice } ); msg( $ship[$F{ cship }][4]を搬入しました ); add_record( $cnameに $ship[$F{ cship }][4]を 搬入 ); splice(@ship_ind , $F{ cship } ,1); set_city; $F{ cmode } = 4; play; } # Sub Cadmin In Item # sub cadmin_initem { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } require csys.cgi ; get_city; if ($id != $owner) { error( 不正です ) } if ($F{ iprice } =~ /[^0-9]/) { play( 数の入力が不正です );exit } $F{ iprice } = int($F{ iprice }); if ($F{ iprice } 0) { play( マイナスの価格は付けられません ); exit } my @item_ind = split(/,/,$item_line); my @citem_ind = split(/△/,$citem); if (!$item_ind[$F{ citem }]) { play; exit } $citem = join( △ ,@citem_ind, $item_ind[$F{ citem }],$F{ iprice } ); msg( $item_ind[$F{ citem }]を搬入しました ); add_record( $cnameに $item_ind[$F{ citem }]を 搬入 ); splice(@item_ind , $F{ citem } , 1); $item_line = join( , ,@item_ind); set_city; $F{ cmode } = 4; play; } # Sub Cadmin Bank # sub cadmin_bank { form_table( up , 100% ,1); reload; print qq|銀行・手数料設定 |; submit_button; print CBNK; /td /tr tr td 引出額 × input type=text name=rate value= $crate class=text size=5 % br input type=hidden name=mode value= cadmin_setbk CBNK id_ps; form_table( down ); } # Sub Cadmin Set Bank # sub cadmin_setbk { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } require csys.cgi ; get_city; if ($id != $owner) { error( 不正です ) } if ($F{ rate } =~ /[^0-9]/) { play( 値が不正です ); exit } if ($F{ rate } = 99) { play( 無茶です ); exit } $crate = int($F{ rate }); $action = ; set_city; play; } # Sub Cadmin Intro # sub cadmin_intro { form_table( up , 100% ,1); reload; print qq|宣伝文編集 |; submit_button; print CIN; /td /tr tr td textarea name=cin cols=30 rows=4 class=text $cintro /textarea br input type=hidden name=mode value= cadmin_setin CIN id_ps; form_table( down ); } # Sub Cadmin Set Intro # sub cadmin_setin { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } require csys.cgi ; get_city; if ($id != $owner) { error( 不正です ) } if (length($F{ cin }) $def_ib) { play( 宣伝文の長さは半角$def_ib文字まで ); exit } $cintro = $F{ cin }; $action = ; set_city; play; } # Sub Cadmin City Sell # sub cadmin_csell { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } if (!$F{ csell }) { play; exit } require csys.cgi ; get_city; if ($id != $owner) { error( 不正です ) } if ($F{ cprice } =~ /[^0-9]/) { play( 価格が不正です ); exit } if ($F{ buyer } $F{ buyer } =~ /[^0-9]/) { play( 指定IDが不正です ); exit } $csell = $F{ cprice } + 1000000; $buyer = $F{ buyer }; $action = ; set_city; play; } # Sub Cadmin Name # sub cadmin_name { form_table( up , 100% ,1); reload; print qq|名前変更 |; submit_button; print CNM; /td /tr tr td input type=text name=cnm class=text size=$stx_wth br input type=hidden name=mode value= cadmin_setnm CNM id_ps; form_table( down ); } # Sub Cadmin Set Name # sub cadmin_setnm { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } require csys.cgi ; get_city; if ($id != $owner) { error( 不正です ) } if (!$F{ cnm }) { play( 名前を付けてください ); exit } if (length($F{ cnm }) $def_nb) { play( 名前は半角$def_nb文字まで ); exit } $cname = $F{ cnm }; $action = ; set_city; play; } 1;
https://w.atwiki.jp/ao-ohanashi/pages/351.html
https://w.atwiki.jp/sevenlives/pages/423.html
FTP パーミッション?